home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / autooff.zip / RBBSSUB5.MRG < prev   
Text File  |  1988-10-26  |  3KB  |  91 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce D:\LITE\RBBSSUB5.BAS
  3. * RBBSSUB5.BAS:  Date 10-2-1988  Size 55407 bytes
  4. * ------------[ Created 10-26-1988 18:26:30 ]------------
  5. * REPLACING old line(s) by new
  6. 20162 FOR I = 2 TO QX
  7.          A$(I) = B$(I)
  8.       NEXT
  9.       CALL FMS (Z$,SEARCH.STRING$,SEARCH.DATE$,IN.FMS, _
  10.                 CATEGORY.NAME$(),CATEGORY.CODE$(),CATEGORY.DESC$(),_
  11.                 DOWNLOAD.FLAG,CAT.FOUND,LIST.INDEX)
  12.       WHILE DOWNLOAD.FLAG > 0 AND SUBROUTINE.PARAMETER > -1
  13.          B = 1
  14.          GOSUB 20202
  15.          IF FILESYS.PARAMETER > 1 THEN _
  16.             RETURN
  17. * ------[ first line different ]------
  18.          IF DOWNLOAD.COMPLETED AND AUTO.END = 1 THEN _      'Autologoff Mod
  19.           RETURN                                            'Autologoff Mod
  20.          X$ = CATEGORY.CODE$(CAT.FOUND)
  21.          CALL DISUPDIR (X$,SEARCH.STRING$,SEARCH.DATE$,DOWNLOAD.FLAG,LIST.INDEX)
  22.          CALL CHKTREMAIN (TIME.REMAINING!)
  23.          IF SUBROUTINE.PARAMETER = -1 THEN _
  24.             FILESYS.PARAMETER = 6 : _
  25.             RETURN
  26.          CALL CARRIER
  27.       WEND
  28.       IF SUBROUTINE.PARAMETER = -1 THEN _
  29.          FILESYS.PARAMETER = 7 : _
  30.          RETURN
  31.       FOR I = 2 TO QX
  32.          B$(I) = A$(I)
  33.       NEXT
  34.       ACTIVE.FMS.DIRECTORY$ = ""
  35.       IF IN.FMS THEN _
  36.          GOTO 20175
  37.       IF USER.SECURITY.LEVEL < MIN.SEC.TO.VIEW THEN _
  38.          IF FILE.NAME.HOLD$ = UPLOAD.DIR.CHECK$ THEN _
  39.             FILE.NAME.HOLD$ = "of uploads" : _
  40.             GOTO 20172
  41.       FILE.NAME.HOLD$ = B$(LIST.INDEX)
  42.       IF LIMIT.SEARCH.TO.FMS THEN _
  43.          GOTO 20166
  44.       IF FILE.NAME.HOLD$ = "ALL" OR FILE.NAME.HOLD$ = "A" THEN _
  45.          SEARCHING.ALL = TRUE : _
  46.          DIR.INDEX = LIST.INDEX : _
  47.          GOTO 21890
  48.       CALL BADFILE (FILE.NAME.HOLD$,BAD.FILE.NAME.INDEX)
  49.       ON BAD.FILE.NAME.INDEX GOTO 20163,20172,20176
  50. * REPLACING old line(s) by new
  51. 20791 IF PERSONAL.DOWNLOAD THEN _
  52.          RETURN
  53.       CALL CHKTREMAIN (TIME.REMAINING!)
  54.       IF SUBROUTINE.PARAMETER = -1 THEN _
  55.          FILESYS.PARAMETER = 6 : _
  56.          RETURN
  57.       OK = TRUE
  58.       IF (INT(BLOCKS.IN.FILE# / 60) + 1) > INT(TIME.REMAINING!) THEN _
  59.          A$ = "Not enough time left!" : _
  60.          CALL UPDTCALR (FILE.NAME$ + " " + A$,2) : _
  61.          CALL QTPUT (A$,1): _
  62.          A$ = "" : _
  63.          OK = FALSE : _
  64.          RETURN
  65. * ------[ first line different ]------
  66.       CALL AUTOLOGOFF            'Autologoff mod
  67.       CALL CHECKRATIO (TRUE)     'Autologoff mod
  68.       RETURN
  69. * REPLACING old line(s) by new
  70. 21920 ' EXIT RBBS-PC FILE SUBSYSTEM
  71.       END SUB
  72. * ------[ first line different ]------
  73. '******************** INSERTED AUTO.LOGOFF here ******************
  74. '
  75. ' $SUBTITLE: 'AUTOLOGOFF - Subroutine to  to log off after transfer'
  76. ' $PAGE
  77. '
  78.   SUB AUTOLOGOFF STATIC
  79.  AUTO.END = 0
  80.  SUBROUTINE.PARAMETER = 1
  81.  A$ = CHR$(7)+"Would you like me to Log you Off after the transfer? (Y/[N]) "+CHR$(7)
  82. CALL QTPUT(A$,0)
  83.      A$=""
  84.     TURBO.KEY = -TURBO.KEY.USER
  85.       CALL TGET
  86.        IF NOT YES THEN _
  87.      EXIT SUB 
  88.  AUTO.END = 1
  89. END SUB
  90. '
  91.